home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / ABOUT.SOFTDISK.bas next >
BASIC Source File  |  2003-06-12  |  6KB  |  146 lines
  1. 5  REM  ABOUT.SOFTDISK
  2. 10  TEXT : HOME 
  3. 100  VTAB 2: HTAB 12: PRINT "SOFTDISK MAGAZETTE"
  4. 110  HTAB 13: PRINT "3811 ST. VINCENT"
  5. 120  HTAB 7: PRINT "SHREVEPORT, LOUISIANA 71108"
  6. 130  VTAB 6: HTAB 6: PRINT "$10 TO START     $5 PER MONTH"
  7. 140  VTAB 10: HTAB 11: PRINT "A MONTHLY PUBLICATION"
  8. 141  VTAB 11: HTAB 11: PRINT "---------------------"
  9. 160  VTAB 15: PRINT "          PUBLISHER   AL TOMMERVIK"
  10. 170  VTAB 17: PRINT "             EDITOR   JIM MANGHAM"
  11. 185  VTAB 19: PRINT "CIRCULATION MANAGER   JUDI MANGHAM"
  12. 190  GOSUB 8000
  13. 195  GOTO 2000
  14. 200  HOME 
  15. 210  VTAB 2: HTAB 12: PRINT "MAILING PROCEDURE"
  16. 220  GOSUB 8050
  17. 230  VTAB 7: PRINT " SENDS $10 STARTUP FEE"
  18. 240  GOSUB 8000
  19. 250  GOSUB 8200
  20. 260  GOSUB 8100
  21. 270  VTAB 7: HTAB 20: PRINT "RECEIVES STARTUP FEE"
  22. 280  GOSUB 8000
  23. 290  VTAB 9: HTAB 20: PRINT "SENDS INITIAL ISSUE": HTAB 20: PRINT "IN REUSABLE MAILER"
  24. 300  GOSUB 8000
  25. 310  GOSUB 8200
  26. 320  GOSUB 8050
  27. 330  VTAB 7: PRINT " RECEIVES INITIAL ISSUE"
  28. 340  PRINT " IN REUSABLE MAILER"
  29. 350  GOSUB 8000
  30. 360  VTAB 10: PRINT " IMMEDIATELY SEND BACK MAILER"
  31. 370  PRINT " & $5 PAYMENT FOR NEXT ISSUE"
  32. 375  PRINT " (RETAIN DISKETTE)"
  33. 470  GOSUB 8000
  34. 480  GOSUB 8200
  35. 490  GOSUB 8100
  36. 500  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER &"
  37. 510  HTAB 21: PRINT "PAYMENT FOR NEXT"
  38. 520  HTAB 21: PRINT "ISSUE"
  39. 530  GOSUB 8000
  40. 540  VTAB 11: HTAB 21: PRINT "SENDS MAILER & NEW"
  41. 550  HTAB 21: PRINT "ISSUE"
  42. 560  GOSUB 8000
  43. 570  GOSUB 8200
  44. 580  GOSUB 8050
  45. 590  VTAB 7: PRINT " RECEIVES MAILER &"
  46. 600  PRINT " NEW ISSUE"
  47. 610  GOSUB 8000
  48. 620  VTAB 10: PRINT " IMMEDIATELY SEND BACK"
  49. 630  PRINT " OLD DISKETTE IN MAILER"
  50. 640  PRINT " WITH $5 PAYMENT FOR"
  51. 650  PRINT " NEXT ISSUE"
  52. 655  PRINT " (RETAIN NEW DISKETTE)"
  53. 700  GOSUB 8000
  54. 710  GOSUB 8200
  55. 720  GOSUB 8100
  56. 730  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER WITH";
  57. 740  HTAB 21: PRINT "OLD DISKETTE &"
  58. 750  HTAB 21: PRINT "PAYMENT FOR NEXT"
  59. 760  HTAB 21: PRINT "ISSUE"
  60. 770  GOSUB 8000
  61. 780  VTAB 12: HTAB 21: PRINT "SENDS MAILER & YET"
  62. 790  HTAB 21: PRINT "ANOTHER ISSUE"
  63. 800  GOSUB 8000
  64. 810  GOSUB 8200
  65. 820  VTAB 8: HTAB 8: PRINT "-- AND THE ";: FLASH : PRINT "BEAT";: NORMAL : PRINT " GOES ON --"
  66. 830  VTAB 12: PRINT " PLEASE SEND RETURNS BACK THE SAME DAY"
  67. 840  PRINT " YOU RECEIVE A MAILER."
  68. 870  PRINT : PRINT " BE A GROOVER AND GET IN THE SOFTDISK"
  69. 875  PRINT " GROOVE."
  70. 880  GOSUB 8000
  71. 882  VTAB 5: CALL  -868
  72. 885  GOSUB 8200
  73. 890  VTAB 4: PRINT " OUR ADDRESS & PREPAID POSTAGE PERMIT"
  74. 900  PRINT " IS ON THE FLIP SIDE OF YOUR ADDRESS"
  75. 910  PRINT " CARD."
  76. 920  PRINT " (PLASTIC BAG OPENS AT RED LINE)"
  77. 930  PRINT : PRINT " THE FIRST THING YOU SHOULD DO UPON"
  78. 940  PRINT " RECEIVING A NEW MAGAZETTE IS MAKE A"
  79. 950  PRINT " PERSONAL COPY OF IT FOR YOUR KEEPING."
  80. 960  PRINT : PRINT " THEN YOU HAVE A MONTH TO PLAY WITH"
  81. 970  PRINT " OUR DISKETTE & PLACE FEEDBACK"
  82. 980  PRINT " COMMENTS ON IT."
  83. 990  PRINT : PRINT " WHEN YOU GET A NEW ONE,"
  84. 1000  PRINT " SEND BACK THE OLD ONE,"
  85. 1010  PRINT " WITH PAYMENT FOR THE NEXT ONE."
  86. 1015  PRINT " ALWAYS KEEP A DISK TO RUN."
  87. 1017  PRINT " THAT'S THE WAY TO HAVE SOME FUN."
  88. 1020  GOSUB 8000
  89. 1030  GOTO 2000
  90. 2000  HOME : HTAB 12: PRINT "INFORMATION ABOUT"
  91. 2010  VTAB 10: HTAB 10: PRINT "1 = BACK ISSUES"
  92. 2030  VTAB 12: HTAB 10: PRINT "2 = MAILING PROCEDURE"
  93. 2040  VTAB 14: HTAB 10: PRINT "3 = FEEDBACK PROCESS"
  94. 2050  VTAB 16: HTAB 10: PRINT "4 = NONE OF THE ABOVE"
  95. 2060  VTAB 18: HTAB 3: PRINT "WHICH? ";: GET R$
  96. 2070  PRINT 
  97. 2080  IF R$ = "1" GOTO 3000
  98. 2100  IF R$ = "2" GOTO 200
  99. 2110  IF R$ = "3" GOTO 5000
  100. 2120  IF R$ = "4"  THEN  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  101. 2130  GOTO 2060
  102. 3000  HOME : VTAB 6: HTAB 14: PRINT "BACK ISSUES"
  103. 3010  VTAB 10: PRINT "  WE ARE OFFERING BACK ISSUES FOR $8"
  104. 3020  PRINT : HTAB 8: PRINT "(YOU KEEP THE DISKETTE)"
  105. 3030  PRINT : PRINT "  THE FIRST AVAILABLE ISSUE IS OCT 81"
  106. 3035  PRINT : PRINT "     THERE WAS NO APRIL 82 ISSUE"
  107. 3040  GOSUB 8000: GOTO 2000
  108. 5000  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  109. 5010  PRINT : PRINT "YOU ARRIVED AT THIS SCREEN BY FIRST"
  110. 5020  PRINT : PRINT "SELECTING 'ABOUT SOFTDISK' AND THEN"
  111. 5030  PRINT : PRINT "'FEEDBACK PROCESS'.
  112. 5040  PRINT : PRINT : PRINT "AFTER YOU EXIT 'ABOUT SOFTDISK' YOU"
  113. 5050  PRINT : PRINT "WILL BE GIVEN AN OPPORTUNITY TO SELECT"
  114. 5060  PRINT : PRINT "'ON WITH THE SHOW'.
  115. 5070  PRINT : PRINT : PRINT "'ON WITH THE SHOW' TAKES YOU INTO A"
  116. 5080  PRINT : PRINT "PRESENTATION OF THE MAIN BODY OF"
  117. 5090  PRINT : PRINT "SOFTDISK TEXT DATA."
  118. 5100  GOSUB 8000
  119. 5110  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  120. 5120  PRINT : PRINT "ONCE YOU ARE VIEWING THE MAIN BODY OF"
  121. 5130  PRINT : PRINT "TEXT DATA YOU WILL NOTICE THAT THE"
  122. 5140  PRINT : PRINT "BOTTOM OF THE SCREEN PRESENTS YOU WITH"
  123. 5150  PRINT : PRINT "SOME OPTIONS."
  124. 5160  PRINT : PRINT "ONE OF THEM IS THE  V  OPTION."
  125. 5180  PRINT : PRINT "THE  V  OPTION ALLOWS YOU TO ENTER"
  126. 5190  PRINT : PRINT "COMMENTS.  YOUR COMMENTS WILL BE"
  127. 5200  PRINT : PRINT "WRITTEN TO THE DISK AND PROVIDE US WITH"
  128. 5210  PRINT : PRINT "FEEDBACK WHEN YOU RETURN YOUR DISKETTE"
  129. 5220  PRINT : PRINT "FOR ANOTHER ISSUE OF SOFTDISK."
  130. 5230  GOSUB 8000
  131. 5240  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  132. 5250  PRINT : PRINT "YOU SHOULD ENTER YOUR COMMENTS ONE LINE"
  133. 5260  PRINT : PRINT "AT A TIME."
  134. 5270  PRINT : PRINT "HIT THE RETURN KEY AFTER EACH LINE YOU"
  135. 5280  PRINT : PRINT "ENTER."
  136. 5290  PRINT : PRINT "WHEN YOU FINISH YOUR REPLY AND WANT TO"
  137. 5300  PRINT : PRINT "CONTINUE READING THE MAGAZETTE JUST"
  138. 5310  PRINT : PRINT "HIT RETURN WITHOUT ENTERING ANY DATA."
  139. 5320  PRINT : PRINT "THEN ENTER  G  FOR GOBACK."
  140. 5330  PRINT : PRINT "THAT WILL TAKE YOU BACK TO THE"
  141. 5340  PRINT : PRINT "MAGAZETTE TEXT."
  142. 5350  GOSUB 8000: GOTO 2000
  143. 8000  FOR I = 1 TO 250: NEXT : VTAB 23: CALL  -868: HTAB 14: FLASH : PRINT "*";: NORMAL : PRINT " HIT RETURN ";: FLASH : PRINT "*";: NORMAL : INPUT " ";R$: RETURN 
  144. 8050  VTAB 5: HTAB 6: INVERSE : PRINT "SUBSCRIBER";: NORMAL : HTAB 27: PRINT "SOFTDISK": RETURN 
  145. 8100  VTAB 5: HTAB 6: PRINT "SUBSCRIBER";: HTAB 27: INVERSE : PRINT "SOFTDISK": NORMAL : RETURN 
  146. 8200  FOR I = 7 TO 20: VTAB (I): CALL  -868: NEXT : RETURN